home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MOS / SYSTEMER.D < prev    next >
Encoding:
Modula Definition  |  1990-11-06  |  1.5 KB  |  44 lines
  1. DEFINITION MODULE SystemError;
  2.  
  3. (*
  4.  * Dieses Modul dient nur zur zur Anzeige von fatalen Fehlern,
  5.  * die unbedingt zum Programmabbruch führen, ohne vorher einen
  6.  * Laufzeitfehler auszulösen!
  7.  *)
  8.  
  9. FROM SYSTEM IMPORT ADDRESS;
  10.  
  11. PROCEDURE Abort (error: INTEGER);
  12.  (*
  13.   * Terminiert das Programm.
  14.   * 'error' sollte eine GEMDOS-Fehlernummer sein. Dieser Wert wird normaler-
  15.   * weise als Exitcode geliefert, solange der vom Desktop angezeigt wird.
  16.   * (Das ist der Fall bei Werten zw. -33 und -94).
  17.   * Bei positiven Werten wird der Wert unverändert geliefert, sodaß auch
  18.   * keine Fehlermeldung vom Desktop angezeigt wird.
  19.   * Bei sonstigen negativen Werten wird ein anderer Wert genommen, damit
  20.   * das Desktop in jedem Fall eine Meldung ausgibt: Ist der Wert in 'error'
  21.   * kleiner als -94, wird -94 geliefert, was den Desktop zur Anzeige
  22.   * "TOS-Error #63" veranlaßt.
  23.   * Bei Werten zw. -1 und -32 wird 62 abgezogen, sodaß Werte zw. -63 und
  24.   * -94 geliefert werden und entsprechend "TOS-Error #32" bis "#63" an-
  25.   * gezeigt wird.
  26.   *)
  27.  
  28. PROCEDURE AbortWithMsg (msg: ADDRESS);
  29.  (*
  30.   * Terminiert das Programm.
  31.   * 'msg' ist ein Zeiger auf einen Text, der auf dem Bildschirm
  32.   * ausgegeben wird.
  33.   * Als Exitcode wird immer -1 geliefert, sodaß keine weitere Anzeige
  34.   * durch das Desktop erfolgen wird.
  35.   *)
  36.  
  37. PROCEDURE OutOfMemory;
  38.  (*
  39.   * Terminiert mit Exitcode -39, was den Desktop veranlaßt, die Meldung
  40.   * anzuzeigen, daß Speicher für diese Anwendung nicht reicht.
  41.   *)
  42.  
  43. END SystemError.
  44.